function kap_n = kap_n_pscc(shat,kap0,phi)
%derivative of selling cost per existing customer wrt existing customers
kap_n = kap0*shat.^phi*(1-phi)/phi;
end

